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TENNECOMP TP-1351 MAGNETIC TAPE STORAGE UNIT 


The TP-1351 "TENNETAPE" is intended for use with the POP Family-of-Eight 
computers. The TENNETAPE is a high-speed I/O device capable of replacing 
most paper tape I/O, and operates at approximately 200 twelve-bit words per 
second in both read and record operations. The TENNETAPE was inspired by a 
less sophisticated unit constructed by J. J. H. Park of the National Research 
Council of Canada. 

The TENNETAPE utilizes continuous-loop tape cartridges popular in the broad¬ 
casting industry for their reliability and ease of handling. Standard program 
cartridges have a capacity of 4096 computer words on each of their four tracks. 
Changing one cartridge for another is a five second operation and may be done 
with the tape in any position. 

All functions of the TENNETAPE are software controlled except for track selec¬ 
tion, which is by means of a four-position rotary switch. The processor is 
used to assemble words for writing and to disassemble words when reading. Only 
a single bit at a time is transferred between the processor and the tape unit. 
Since signals are transferred on a bit by bit basis, the FORMAT of the infor¬ 
mation is completely determined by programming. Record operations of the 
TENNETAPE are file-protected to prevent accidental destruction of valuable 
symbolic text, data, or programs. 

In conjunction with the TP-1346 Automatic Loader, the TENNETAPE offers unique 
"one button" loading and starting of programs. The program proper is stored 
on the TENNETAPE; the tape reading routine is mechanically read into the com¬ 
puter by the Automatic Loader. 


t 
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INTRODUCTION 


Interface Unit 

Serial information read or written by the tape unit is transferred to and 
from the computer by means of lOT pulses. The interface contains a 1 bit 
buffer (BIT FLAG) which is set when a "one" is read from tape. There are 
also provisions for writing a "one" on tape and sensing the Beginning-of- 
Tape reflective marker which is positioned at the splice, in the continuous 
loop. The tape may be considered to have no "end" or "beginning," but one 
may not write over the splice without a chance of losing information. 

The control contains two timing circuits which operate mechanical relays. One 
relay turns on the motor and engages the capstan and pinch roller (MOTOR/ 

PINCH ROLLER RELAY) and the other relay switches the heads from a read 
configuration to a write configuration (WRITE MODE RELAY). The relay timing 
circuits hold the relays in for a specified time each time they are pulsed. 

The delay for the WRITE MODE relay is somewhat longer than the delay for the 
MOTOR/PINCH ROLLER RELAY so that the tape motion can stop before the READ/ 

WRITE relay opens. Otherwise, some information on the tape might not be erased 
when starting and stopping the tape. 

The device code (second and third octal digit of the instruction) is normally 
37 but may be varied by clipping diodes on the device selector card in the 
interface. The code is denoted by XX in the following list of instructions. 

Instructions 


SKIP ON ^ AND PULSE MOTOR (TPSP) 

Octal Code: 6XX1 

(See computer manual for lOT execution time) 

Operation: The BIT FLAG is sensed and if it is set (indicating a bit read 
from tape), the contents of the PC is incremented by one thereby skipping 
the next sequential instruction. The MOTOR/PINCH ROLLER RELAY of the transport 
is pulsed for 12 milliseconds. If a continuous loop of TPSP instructions is 
given, the MOTOR/PINCH ROLLER RELAY will remain engaged as long as the TPSP 
instruction occurs at least once every 12 milliseconds. 

SKIP ON MARK AND CLEAR FLAG (TPMC) 

Octal Code: 6XX2 

(See computer manual for lOT execution time) 

Operation: The Beginning-of-Tape photocell output is sensed and if it indi¬ 
cates the presence of a reflective marker, the contents of the PC is incremented 
by one, thereby skipping the next sequential instruction. The BIT FLAG is 
cleared. The output of the photocell is A.C. coupled and the mark must be in 
motion to be sensed. TPMC is normally combined with TPSP to search for the 
mark in the READ MODE or with TPWP to search for the mark in the WRITE MODE. 
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WRITE MODE AND PULSE MOTOR (TPWP) 

Octal Code: 6XX4 

(See computer manual for lOT execution time) 

Operation: The READ/WRITE relay is pulsed for 55 millisec. (The relay 
requires about 1 millisec to pull in.) The READ/WRITE relay connects the 
tape head in the WRITE mode and begins to saturate the tape in the "zero" 
direction. When the READ/WRITE relay has pulled in, TPWP will also pulse the 
MOTOR AND PINCH/ROLLER RELAY for 12 millisec. Thus a continuous loop of 
TPWP will erase the tape. 

WRITE MODE AND RECORD BIT (TPWB) 

Octal Code: 6XX5 

(See computer manual for lOT execution time) 

Operation: The WRITE MODE RELAY is pulsed for 55 milliseconds and the MOTOR/ 
PINCH ROLLER RELAY is pulsed for 12 milliseconds. A pulse is written on tape. 

If TPWB instructions are given, at least every 12 milliseconds, continuous tape 
motion will result. 

WRITE MODE AND SKIP ^ MARK (TPWM) 

Octal Code: 6XX6 

(See computer manual for lOT execution time) 

Operation: A combination of TPWP and TPMC. Pulses the WRITE MODE RELAY 
for 55 milliseconds and the MOTOR/PINCH ROLLER RELAY for 12 milliseconds. 

The Beginning-of-Tape photocell output is sensed and if it indicates the pre¬ 
sence of a reflective marker, the contents of the PC is incremented by one, 
thereby skipping the next sequential instruction. The BIT FLAG is also cleared. 
A continuous loop of TPWM is used to search for the Beginning-of-Tape mark 
erasing tape while waiting for the mark. 

Operating Controls 

Refer to the following sketch. 



Figure 1. FRONT PANEL CONTROLS 
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OPERATION 


Read and record operations of the TENNETAPE require short programs to be 
resident in the computer memory. Normally both programs are stored in the 
last page (200 Words) of memory along with the RIM loader and are read 
into memory by the RIM loader. 

Recording on the TENNETAPE is accomplished as follows: 

(1) Read in the tape record routine from paper tape on the 
ASR-33 Teletype using the RIM loader; 

(2) Insert a file protect pin into the hole in the cover of 
the tape cartridge to be used; 

(3) Push the tape cartridge firmly into the front panel slot; 

(4) Set the track selection switch to the desired channel; 

(5) Set the computer's front panel switches to 7700g and press 
the load address switch, then the start switch; 

(6) The computer will immediately halt. Set the initial octal 
address of the block of memory to be recorded on the computer 
front panel switches and press the continue switch; 

« (7) The computer will halt again. Set the final octal address 

of the block of memory to be recorded on the computer front 
panel switches and press the continue switch; 

(8) Check the file protect light on the TENNETAPE front panel. 

If it is on, the record operation will not take place. 

If you have forgotten the file protect pin, stop the computer, 
remove the cartridge, and insert the file protect pin; and 
start the procedure over again at step (3); 

(9) At the end of the record operation, the computer and the 
tape motion will halt. The cartridge may be removed by 
lifting up on its protruding end and pulling gently out of 
the front panel slot; 

(10) Remove the file protect pin from the hole in the cover of the 
tape cartridge to prevent accidental destruction of the in¬ 
formation just recorded. 

Reading from the TENNETAPE is accomplished as follows: 

(1) Read in the tape read routine from paper tape on the ASR-33 
Teletype using the RIM loader; 

(2) Push the tap^ caTtridge firmly into the front panel slot; 

(3) Set the track selection switch to the desired channel; 
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(4) Set the computer's front panel switches to 7600g and press the 
load address switch, then the start switch; 

(5) Upon completion of the read operation, the computer and the 
tape motion will halt. The checksum will be displayed on the 
accumulator lights on the computer front panel. (Zero indi¬ 
cates a correct read operation, and non-zero indicates an error.) 


For routine operation, it is convenient to prepare a systems cartridge which 
holds the record routine, a short binary loader, and a read-compare routine, 
rather than to obtain these routines from paper tape. Preparing a systems 
cartridge is facilitated by use of the system builder routine as follows: 

(1) Read in the system builder routine from paper tape on the 
ASR-33 Teletype using the RIM loader; 

(2) Insert a file protect pin into the hole in the cover of the 
tape cartridge to be used; 

(3) Push the cartridge firmly into the front panel slot; 

(4) Set the computer's front panel switches to 200g and press the 
load address switch, then the start switch; 

(5) The computer will type out "Track 1 Record" and halt. Set the 
track selection switch to channel 1 and press the continue 
switch on the computer front panel. The record program will 
be recorded on tape; 

(6) Step (5) will repeat for "Track 2 Short Binary Loader," "Track 3 
Read-Compare," and "Track 4 Rim Loader." Set the track selec¬ 
tion switch to the indicated channel at each halt and press the 
continue switch; 


(7) Remove the cartridge from the front panel slot and remove the 
file protect pin from the hole in the cover of the cartridge; 

(8) The teletype printout may be cut to size and used as a label for 
the contents of the system cartridge; 

(9) The systems programs may now be read from the tape in the manner 
described above for reading. The "Record," "Short Binary Loader, 
and "Read-Compare" programs all start at 7700g; only one of 
these is resident in the last page of memory at a time along with 
the "Read" program. 

(10) The "Short Binary Loader" may be used to read binary tapes on the 
ASR-33 Teletype without the memory extension option; 

(11) The. "Read-Compare" may be used to check information recorded 
on tape with information resident in memory. Errors are indi¬ 
cated by the teletype bell, and an "0" or an "E" is typed at 
the end of the comparison indicating "O.K." or "Error." 
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PRINCIPLES OF OPERATION 


Refer to the print of the Tape Unit Interface. 
Write Mode 


In the write mode of operation, information is recorded bit serial in the 
selected track by means of the WRITE ONE SHOT. The pulse width is 134 
microsec. Typically, a timing pulse is recorded, followed by 12 bit 
pulses. Curve (1) of Figure 2 shows a timing pulse followed by bit pulses 
for a word containing 72530. The record mode of operation is selected by 
IOT-4, which causes closure of the WRITE MODE RELAY. The relay remains 
energized for 55 milliseconds each time the pulse is given. The time duration 
is determined by an 8 microfarad capacitor connected across the input of a 
W107 module. The IOT-4 pulse discharges the capacitor to zero volts, and 
the capacitor gradually charges up through the input circuit of the W107. 

The W107 is a special DEC module which consists of two inverters in tandem. 

The output is non-inverting. The first inverter requires only about .2 ma 
input for proper operation, rather than about 1 ma, as with the standard 
R107 inverter. 

Read Mode 


In the read mode of operation, the signal from the tape head appears as 
shown in Curve (2) of Figure 2. Twou709 operational amplifiers are used 
to amplify the head voltage. The amplified output signal goes to a Schmidt 
trigger circuit. The dashed line on Curve (2) of Figure 2 illustrates the 
Sphmidt trigger threshold. When the signal goes more negative than the 
threshold the Schmidt trigger goes from -3 volts to ground, as shown on 
Curve (3) of Figure 2. The leading edge of the signal from the Schmidt 
trigger is used to set the BIT FLAG flip flop, as shown in Curve (4) of 
Figure 2. IOT-1 tests the state of this flip flop and causes a SKIP if 
the BIT FLAG is set. IOT-2 resets the flip flop. 

In normal read operation, a series of IOT-1's is given to find the first 
timing pulse. Then an IOT-2 clears the BIT FLAG. Then, the processor is 
programmed to generate an IOT-1 in about 402 microsec, followed by 11 more 
lOT's every 268 microsec. These IOT-1's test the state of the BIT FLAG, 
which is then reset by IOT-2‘s. The extra delay following the timing pulse 
strobes the BIT FLAG half way between bit 0 and bit 1. The next IOT-1 

strobes the BIT FLAG half way between bit 1 and bit 2, etc. This method of 

strobing gives a tolerance of approximately 125 microsec to timing errors. 
The cumulative timing error of the last IOT-1 which test bit 11 should be 
much less than 125 microsec. 

On the PDP-8/S, the time delay for writing and reading is produced by the 
program loop which generates the write pulses and the strobe pulses. On 
faster computers, extra delay must be programmed in by means of delay sub¬ 
routines. The processor cycle time and the memory cycle of the PDP-8/S 
are separately adjustable and will vary somewhat. To insure compatibility 
between one computer and another, the cycles times will have to be adjusted 

to within the timing tolerance of the transport, or else the program can be 

’’padded" by extra dummy instructions. 


$ 
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In the read mode, IOT-1 also pulses the MOTOR/PINCH ROLLER RELAY and causes 
it to close for 12 milliseconds. In addition to resetting the BIT FLAG, 
IOT-2 also tests the output of the Beginning-of-Tape mark photocell, causing 
a skip whenever the mark passes by the photocell. 

File Protect 


The presence of the FILE PROTECT PIN actuates two microswitches in the 
transport unit. One of these is connected in series with the write mode 
relay so that if the FILE PROTECT PIN is absent the heads are not connected 
in WRITE MODE, The other switch turns on the FILE PROTECT LIGHT if an attempt 
is made to select WRITE MODE without the FILE PROTECT PIN. 

Tape Cartridges 

Standard tape cartridges are loaded with Scotch Type 282 "sandwich" tape. Sand 
wich tape prolongs both the life of the tape head and the life of information 
stored on the tape. The tape is spliced with 3/8" of splicing tape on the 
back side, and a 3/8" strip of reflective tape is placed on the front side, 
trailing the splice by 1/4". The tape has from 1" to 2" of slack in the 
continuous loop; less slack causes jerky oepration while more slack may cause 
jamming of tape after it passes the pinch roller. 

The TENNETAPE is provided with three standard program cartridges of 25 sec 
length and one 100 sec tape. Additional cartridges, with tapes of 25, 100, 
or 400 sec duration may be ordered from Tennecomp. Tennecomp cartridges are 
covered by the TENNETAPE warranty* 

Users desiring to load their own cartridges should obtain satisfactory 
results with the following mateHals: 

(1) FIDELIPAC Cartridges 

(2) Scotch Type 156 Digital Tape : 

(3) Robbins Type TST-235 Splicing Tape 

(4) Scptch Type 51-7/325 Alummized Sensing Tape 

These materials can be obtained from Allied Electronics, 100 N. Western 
Avenue, Chicago, Illinois 60680. Substitutions of other type materials 
are not recommended. 
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Figure 2. Tape Signals 
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PROGRAMMING 


Recording 


Refer to the listing of the TENNETAPE record routine. From the initial and 
final addresses, the processor calculates the negative of the number of words 
to be recorded. Then the write mode is selected and the tape started in 
motion, erasing previous information. A search for the reflective marker 
is started; when it is found, a three second delay of erase only is entered 
to insure that the tape is up to speed, and that the vicinity of the splice 
is past the head before actual recording begins. The first recorded word 
is the initial address, the second is the negative of the number of words 
recorded, and the rest but one are the desired information. The last word 
recorded is the checksum for the operation, namely the least significant 12 
bits of the sum of all the recorded words. 

Reading 

Refer to the listing of the TENNETAPE read routine. A search loop for the 
reflective marker is entered, and upon exit a one second delay is entered 
to allow the splice to move past the head. The routine then searches for 
the timing mark of the first word which it takes as the initial address. The 
second word it takes for the negative of the number of words to read, and it 
then reads that number of words and deposits them in sequential memory 
locations starting at the initial address. The read routine keeps a checksum 
of all but the first two words. Upon reading all information words, the 
routine reads the next word as the recorded checksum and compares that check¬ 
sum with the one it has calculated. The difference between the two checksums 
is placed in the accumulator and the routine halts. 

The read program can easily be modified to do either of the following: 

(1) Transfer control to some preassigned memory location when 
the calculated and recorded checksums agree; 

(2) Compare (but not deposit) the information on tape with that 
in memory and ring the Teletype bell if the two do not agree. 
This read-compare operation is the best way to verify that 
record operations were successful. 

Editing 

Refer to the listing of EDIT-8 modifications for TENNETAPE I/O. The high 
speed reader options have been replaced by TENNETAPE I/O routines; other¬ 
wise editing is unchanged and operates according to the EDIT-8 manual. Text 
written on tape is blocked out in 574^ word buffers for compatibility with 
PAL-III input; the operate/test switch must be in test position to get the 
tape up to speed rapidly. 

The two least significant positions on the computer's front panel switches 
are used to denote tape input/output or Teletype input/output--one means 
TENNETAPE I/O, and zero means Teletype I/O. 


i 
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One additional requirement is necessary for the TENNETAPE system. A dollar 
sign ($) must be the last character in any string of text for output; the 
last buffer most likely will not be exactly filled and the dollar sign is 
the symbol required to start output of the buffer. 

It should be noted that the space available for text in the editor has been 
reduced somewhat, but there remains ample storage space to handle one page 
of liberally annoted text. 

Assembling 


Refer to the listing of PAL-III modifications for TENNETAPE input. The high 
speed reader option has been replaced by TENNETAPE input routines; otherwise 
assembling is unchanged and operates according to the PAL -III manual. The 
operate/test switch must be in the test position to get the tape up to speed 
rapidly. The least significant bit on the computer front panel switches is 
used to denote TENNETAPE input or Teletype input; one means TENNETAPE input, 
and zero means Teletype input. 

File Operations 

Refer to the listings of the TENNETAPE file routines. The routines are 
quite general and require two pages of memory; more specific routines could 
be condensed into less space if necessary. All file operations should be 
done with the operate/test switch in test position unless the delays change 
to give more time for the tape to come up to speed. The format of files used 
by these routines is: 

[TrecordTap ] 'to countI TT . DA m .... r checksum""! 

WBOT (Beginning Of Tape in Write mode) is necessary for initialization of any 
given track on a tape. The routine writes I’s at the end of tape and erases 
a short section of the tape to space the splice past the tape head. Upon 
return from WBOT, the tape is ready for writing files. 

RBOT (Beginning Of Tape in Read mode) is used to find the beginning of tape. 
Upon return from RBOT, the tape is ready for reading files, and for writing 
files if the track has been previously initialized with WBOT. 

WRITE is used to record the portion of memory from lA to FA. The file is 
identified with the CODE word specified by the contents of the AC when WRITE 
is called. The error return indicates that the end of tape was encountered 
during recording and the operation aborted, the tape being spaced to the 
beginning of tape point. 

READ is used to read a file from the tape into the portion of memory from 
lA to FA; the code word is returned in the AC. The error return signifies 
one of the following errors has been made; the error flag word may be found 
in ERROR of the READ routine (READ + 102g): 

(a) The tape was not in an inter-record gap when READ was 

called (flag word = READ + 63g). The tape was spaced to the 
next inter-record gap and the AC contains the code of the 
last record read; 
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(b) The size of the file on tape differs from the size called 
for (flag word = READ + 102g). The tape was spaced to the 
inter-record gap and the code is in the AC; 

(c) The checksum on tape differs from the checksum calculated 
during reading (flag word = READ + 51g). The code is in 
the AC; 

(d) The end-of-tape was encountered and the read operation was 
aborted (flag word « READ + 61g). The tape was spaced to 
the beginning-of-tape point and the AC contains either the 
code word or 7777, depending on whether or not part of a 
record was there. 

SPACE is used to skip over the number of files indicated by the contents 
of the AC when SPACE is called. 

SEARCH is used to read a file with the code word specified by the 
contents of the AC when SEARCH is called. The error return indicates 
either that a file with the specified code was read incorrectly due to 
one of the error conditions discussed above with reference to READ 
(AC <= 0) or that the end of tape was encountered without finding a file 
with the specified code (AC = -1), If the tape was not at the beginning 
of tape point when SEARCH was called, the proper file may have been on 
a prior portion of the tape and SEARCH should be called again to find 
it. 

General Note 

Due to the programmed delays for bit-to-bit timing in reading and writing, 
all tape operatiorts should be protected from interrupts or data breaks 
during the inner read and write subroutines. 
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TP-1371 iNSTALLATIQN INSTRUCTIONS FOR PDP-8/e 

Insla!la^io^ of fhe TENNECOMP TP-1371 requires the following steps: 

(0) Unpack the box and Inspect all components. Make sure that none of the wire-wrap 

pins on the base of the control logic panel are bent or shorted and that no mechanical 
damage has been done In shipment. Insert the cards firmly In their sockets. 

(1) Mount the transport in a standard 19-inch relay rack. The transport Is normally 
shipped with "ears" for rack mounting. It may be specified for "table top mounting", 
in which case, It Is shipped with "feet" instead of "ears". The feet are necessary 
for table top mounting to Insure adequate air flow. The transport requires 7 inches 
of rack height. 

(2) Make sure that there Is adequate ventilation for the transport. It Is necessary to have 
free air flow through the louvers on the bottom of the cabinet to avoid excessive 
internal temperatures. Do not mount the transport immediately above a large obstruc¬ 
tion which blocks the dir flow louvers. If the transport is "table top" mounted, make 
sure that the rubber feet are in place to allow an air flow gap between the transport 
and the table top. 

/ 

(3) Turn off the 8/e and open It. 

(4) Attach the transport power wires to the lugs (3) on the Interface card (TPG23) In the 
following order, starting at the green blocks (see sketch): 

+5 V RED 

-15 V BLUE 

Ground BLACK 

(5) Check for loose plug-In cards, bent or broken V'/Ires, etc., then plug the Interface 
card (attachedto the green blocks and the other cards) into the rearmost slot of the 
omnibus. Move previously Installed cards forward the appropriate number of slots. 

Some care Is required to pass the control card (the center one) over the omnibus power 
wiring. Ensure that the cards do not grind together. The resulting orientation is 
shown in the sketch. The green blocks are upper-most; all components face forward 
in the computer; the power and interface cables sit near the tray on the computer 
power supply. 

(6) Attach a 110 V line cord to the transport and plug It Into the back of the PDP-8/e 

(or a wall receptacle). The transport AC power should be de-energlzed by the computer 
console power switch In order to prolong the motor life (the motor is rated at several 
years of continuous'duty). 

(7) Plug the red, blue, and black wires onto the similarly colored sockets on the transport 
rear. 

(8) plug the printed circuit paddle marked "1" into the 18-pin socket on the transport 
(moke sure the pins mate - it can be inverted). Attach its other end to the "Molex" 
9-pin socket marked "1". Repeat if a second transport is used (TP-1372). 
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(9) Now energize the AC power to the computer^, the transport^ and the control elec- 
tronics. Give the system the "smoke test". Look for telltale wisps of smoke or 
unusual sounds or smells. If all seems v/eli, attempt to load a memory cell from 
the PDP“8/e console switches to see if the computer is working normally. If not, 
check that the cards clear each other and the surrounding wiring. Check computer 
voltages. 

(10) Insert a cartridge in the transport; then pull it out and look to see if the capstan is 
rotating (only if toggle switch on transport is in "manual motor control" position). 
The capstan should be slowing down to a halt. If it did not move, check the above 
switch, the 110 V, and the+5, “15 V ground lines. 

(11) Toggle in the following short program; 


200 

1210 

TAD 210 

/LOAD COMMAND REGISTER 

201 

6375 

lOT 375 

/ 

202 

6373 

lOT 373 

/SKIP & READ STATUS 

203 

5202 

JMP .-1 

/ 

204 

02 n 

AND 211 

/ 

205 

7450 

SNA 

/BEGINNING OF TAPE? 

206 

5202 

JMP .-4 

/ 

207 

7402 

HLT 

/STOP 

210 

0002 

0002 

/WRITE COMMAND BITS 

211 

0010 

0010 

/MASK FOR "BOT" 


Insert a cartridge, load address, and start at location 200. The tape reel should 
turn and the computer should stop v/hen the splice comes around (about 25 seconds 
for a 4K cartridge). The "file protect" light on the transport should come on if 
the "write allow" pin is not inserted. 

(12) If the simple program works correctly, tr)/ to record and read a full 31-page program 
(from location 0 to 7577). You can use whatever junk happens to be in memory. If 
you want to make sure that the program loaded all right, check a few cells and 
modify them after you record. Then see if they come back after the read. 

(13) Now you are ready to go. Refer to the programming write-up. 

























/ TENNECOMP SYSTEMS^ INC* MINIDEK FOCAL 


/ AK VERSION 


/ TP-1371 DEFINITIONS 


SRSR=6373 

CLCR=6375 

RWCF=6376 

TV;CF=637A 

CLB1=6365 

CGAP=636A 


/ SKIP ON STATUS AND READ,STATUS 
/ CLEAR AND LOAD COMMAND REGISTER 
/ READ WORD AND CLEAR READ FLAG 
/ TRANSFER WORD AND CLEAR WRITE FLAG 
/ CLEAR BOT FLAG FOR UNIT 1 
/ CLEAR GAP FLAG 


/ FOCAL^ 1969 DEFINITIONS 


SPNOR=A560 

GETC=A545 

SORTC=A550 

TESTN=4561 

SORTJ=45/47 

PUSHA=4542 

P0PA=1413 

P0PJ=5541 

ERR0R7=4566 

CHAR=0066 

6LIST=1377 

SORTCN==00 54 

BUFR=0060 

CFRS=0133 

STARTV^BUFR 

LASTV=0031 


/ GET NEXT NON-SPACE CHARACTER 
/ GET NEXT CHARACTER 
/ SORT A CHARACTER AGAINST A LIST 
/ TEST A CHARACTER FOR NUMBER 
/ SORT AND JUMP ROUTINE 
/ PUSH AC ON PUSK-DOlvN LIST 
/ POP AC OFF PUSH-DOWN LIST 
/ EXIT FROM RECURSIVE ROUTINE 
/ ERROR CALL 
/ CHARACTER STORAGE 
/ SORT LIST, FOR TERMINATORS 
/ BINARY VALUE' OF CHARACTER 
/ STORAGE FOR LAST TEXT LOCATION 
/ BEGINNING OF TEXT POINTER 
/ BEGINNING OF VARIABLE STORAGE 
/ STORAGE FOR LAST VARIABLE LOCATION 


/ OPERATE INSTRUCTION CONSTANT GENERATION DEFINITIONS 


6ET=CLA CLL / BASIC 

CNST1=IAC 
CNST2=IAC RAL 
CNST3=CML I AC RAL 
CNSTM1=CMA 


CONSTAI^T INSTRUCTION 
/ GET CNSTl = 0001 IN AC^ 

/ GET CNST2 = 0002 IN AC 

/ GET CNST3 = 0003 IN AC 

/ GET CNSTMl = 7777 IN AC 


/ THIS PATCH IS TO BE USED ONLY WITH 4K FOCAL^ 1969 AND A 
/ DIFFERENT VERSION USED WITH 8K FOCAL^ 1969 


/ LOADING 

/ 1 

/ 2 


instruction; 


LOAD rim LOADER INTO COMPUTER 
LOAD BINARY LOADER INTO COMPUTER 


/ 3* LOAD FOCAL> 1969 INTO COMPUTER 

/ 4. LOAD MINIDEK FOCAL OVERLAY INTO COMPUTER ' 

/ FOCAL MAY NOV BE STARTED AND INITIALIZATION QUESTIONS 
/ ANSWERED ACCORDING TO THE WISHES OF THE USER. 

/ OPERATING INSTRUCTIONS; RECORDING TEXT 

/ TO RECORD TEXT STORED IN MEMORY ONTO A TRACK OF 

/ YOUR MINIDEK^ FIRST PLACE A CARTRIDGE WITH A FILE 

/ PROTECT PIN INSERTED INTO THE MINIDEK CARTRIDGE 

/ SLOT* PLACE THE TRACK'• SELECT SWI TCH ON THE '*AUTO” ' 

/ POSITION* IN RESPONSE TO F'OCAL*S ASTERISK 

/ TYPE THE COMMAND "LIBRARY OUT X*S WHERE "X" IS THE 

/ TRACK YOU WISH USED^ AND HIT RETURN. THE TEXT WIL 

/ THEN BE RECORDED AND CONTROL RETURNED TO FOCAL* 

/ TOE COMMAND "LIBRARY OUT X" MAY BE ABBREVIATED AS 

/ C"L 0 X" AND MAY ALSO BE GIVFN AS AN INDIRECT COMMAD 

/ IN YOUR FOCAL PROGRAM. 

/ OPERATING INSTRUCTIONS; READING TEXT 

/ TO READ TEXT STORED ON A TRACK OF YOUR MINIDEK INTO 

/ MEMORY^ FIRST PLACE THE CARTRIDGE WITH THE DESIRED 

/ FOCAL TEXT. INTO THE MINIDEK CARTRIDGE SLOT* PLAG 

/ THE TRACK SELECT SWITCH ON THE "AUTO" POSITION. IN 

/ RESPONSE TO FOCAL’S ASTERISK TYPE THE COMMAND 

/ "LIBRARY IN X'L TOERE "X" IS THE TRACK TOAT CONTAINS 

/ THE TEXT^ AND HIT RETURN. TOE TEXT WILL BE READ INTO 

/ MEMORY^ THE VARIABLES ERASED:. AND CONTROL - RETURNED 

/ TO FOCAL. THE COMMAND "LIBRARY IN X" MAY BE AB 

/ VIATED AS "L I X" AND MAY BE GIVEInJ AS AN INDIRECT 

/ . COMMAND IN YOUR FOCAL PROGRAM. 

/ PROGRAMMING NOTES: 

+ TOEN USING EITOER OF THE LIBRARY COMMANDS IN AN 

/ INDIRECT CAPACITY:. THE FOCAL PROGRAM WILL STOP 

/ (SAME EFFECT AS THE "QUIT" COMMAND) AFTER THE 

+ ACTION HAS BEEN TAKENTHEREFORE ANY COMMANDS ^ 

/ GIVEN AFTER THE LIBRARY COMMAND ON THE SAME LINE 

/ WILL BE IGNORED. 

/ SLIGHT MODIFICATIONS TO FOCAL PROPER 


1012 

7000 

*1173 

NOP 

/ 

DELETE HIGH SPEED : 

READER 

1173 

6321 

*6321 

LIBRARY 

/ 

POINTER TO LIBRARY 

ROUTINE 

6321 

6322 

4560 

1066 

LIBRAR:. 

SPNOR 

TAD CHAR 

/ 

GET NEXT NON-SPACE 

CHARACTER 




* 


6323 

4542 


PySHA 

/ 

6324 

4545 


GETC 

/ 

632 5 

4550 


SORTC 

/ 

632 6 

1376 


GLIST-l 

/ 

6327 

7410 


SKP 

/ 

6330 

5324 


JMP .-4 

/ 

6331 

4560 


SPNOR 

/ 

6332 

4561 


TESTN 

/ 

633 3 

4566 


ERROR? 

/ 

6334 

4566 


ERROR? 

/ 

6335 

6364 


CGAP 

/ 

6336 

6373 


SR5R 

/ 

6337 

7000 


NOP 

/ 

6340 

0363 


AND BOTl 

/ 

6341 

7640 


SZA CLA 

/ 

6342 

5347 


JMP .+5 

/ 

6343 

7325 


GET CNST3 

/ 

6344 

0000 


CHCH 

/ 

6345 

6373 


SRSR 

C/ 

6346 

5345 


JMP .-1 


6347 

6365 


CLBl 

/ 

6350 

7340 


GET CNSTMl 

/ 

6351 

1054 


TAD SORTCN 

/ 

6352 

0364 


AND C3 

/ 

6353 

7 1 f7! A 


CLL RTL 

/ 

6354 

6355 

7034 

3167 


RAL 

DCA TEMPI 

/ 

6356 

1413 


POPA 

/ 

6357 

4547 


SORTJ 

/ 

6360 

6364 

- 

LLISTl- 

1 

6361 

0002 


LLIST2- 

LLI 

6362 

4566 


ERR0R7 

/ 

6363 

0010 

BOTl^ 

10 

/ 

6364 

0003 

C3j 

3 

/ 

6365 • 

031 1 

LLIST1,» 

0311 

/ 

6366 

0317 


0317 

/ 

,6367 

7511 

LLIST2,. 

READ 

/ 

6370 

7533 


WRITE 

/ 


*7503 


7503 

0030 

UPDATE^ 0 


/ 

750 4 

1567 

TAD 

I TEMPI 

/ 

750 5 

1 171 

TAD 

TEMP 3 


750 6 

3171 

DCA 

TEMP 3 


753 7 

2167 

ISZ 

TEMPI 

/ 

7510 

5703 

JMP 

I UPDATE 


751 1 

7301 

READ,» GET 

CNSTl 

/ 


SAVE KJ P@H (PUSH-DOWN LIST) 

GET NEXT CHARACTER 
IS IT A TEPJ'NNATOR??? 

TERMINATOR LI ST POINTER 
YES. GET TRACK NUMBER 
NO. KEEP LOOKING 
GO PAST TERMINATOR (SPACE) 

MAKE SURE IT’S A. NUMBER 
?25.9i foui\id;Period 

?25.92 FOUND TEPaMINATOR 

CLEAR THE GAP FLAG 
GOOD. READ MINIDEK STATUS 
SKIP PROTECT 
MASK OFF SPLICE 1 BIT 
IS IT HERE?? 

YES. DON’T HAVE TO REWIND 
NO. REWIND TAPE UNIT 
LOAD COMMAND REGISTER 
SKIP ON SPLICE 

CLEAR BOT FLAG (UNIT 1) 

TAD MINUS 1 

SUBTRACT 1 FROM TRACK NUMBER 
MAKE SURE NO OVERFLOW 
ROTATE 3 LEFT 

STORE TRACK NUMBER TEMP. 

GET-SUB”COMMAND FROM PDL 
SORT AND JUMP 

/ SOURCE AND DESTINATION LIS 

STl 

?25.;3 -- ILLEGAL SUB-COMMAND 
BOT 1 MASK 
TRACK MASK 

”1” FOR ”IN” FOR ’’READ” 

”0”>F0R ’’OUT” FOR ’’RECORD” 

JUMP TO READ ON I - 

JUMP TO WRITE ON 0 


UPDATE POINTERS ROUTINE 
UPDATE CHECKSUM 


INCREMENT LOCATION POINTER 
READ TEXT--AC = 1 



7512 

4351 


JMS 

SETUP 

7513 

4357 


JMS 

READW 

7514 

30 60 


DCA 

BUFR 

751 5 

4367 


JMS 

INITAL 

7516 

4357 


JMS 

READW 

7517 

3567 


DCA 

I TEMPI 

7520 

430 3 


JMS 

UPDATE 

7521 

2170 


I SZ 

TEMP 2 

7522 

5316 


JMP 

. -4 

7523 

4357 


JMS 

READW 

7524 

7041 


CIA 


7525 

1 171 


TAD 

TEMPS 

7526 

7640 


SZA 

CLA 

7527 

4566 



ERROR 

7530 

1060- 


TAD 

STARTV 

7531 

30 31 


DCA 

LASTV 

7532 

5541 


POPJ 

7533 

7335 

WRI TE;^ 

GET 

CNST2 

7534 

4351 


JMS 

SETUP 

7535 

4573 


JMS 

I WAITX 

7536 

10 63 


TAD 

BUFR 

7537 

4363 


J^'‘% 

RECORD 

7543 

4367 


JMS 

INITAL 

7541 

1567 


TAD 

I TEMPI 

7542 

43 6 3 


JMS 

RECORD 

7543 

4303 


JMS 

UPDATE 

7544 

2173 


ISZ 

TEMP 2 

7545 

5341 


JMP 

. 4 

7546 

1 1 71 


TAD 

TEMPS 

7547 

4363 


JMS 

RECORD 

7553 

5541 


POPJ 

7551 

0000 

SETUPS 

0 


7552 

3172 


DCA 

MASK 

7553 

1172 


TAD 

MASK 

7554 

1167 


TAD 

TEMP 1 

7555 

6375 


CLCR 

■7556 

5751 


JMP 

I SETUP 

7557 

0300 

•READW^ 

0 


7560 

4573 


JMS 

I WAITX 

7561 

6376 


RWCF 

7562 

5757 


JMP 

I READW 

7563 

0000 

RECORD^ 

0 


7564 

6374 


TWCF 

7565 

4573 


JMS 

I WAITX 

7566 

5763 


JMP 

I RECORD 

7567 

0000 

INITAL, 

0 


7570 

1063 


TAD 

BUFR 

7571 

7040 


CMA 



/ SET UP TAPE UNIT 
/ READ FIRST WORD 
/ STORE AS LAST TEXT LOCATION 
/ INITIALIZA PRINTERS 
/ READ DATA WORD 
/ STORE IN MEMORY 
/ UPDATE POINTERS 
/ COUNTDOWN WORDS 
/ NOT FINISHED. 

/ READ CHECKSUT-l 
/ NEGATE 

/ ADD CALC. CHECKSUM 
/ READ ERROR??? 

/ ?30.87 CHECKSUM ERROR 
/ NO. ERASE VARIABLES 

/ EXIT 

/ RECORD TEXT--AC = 2 
/ SET UP TAPE UNIT 
/ WAIT FOR FIRST TRANSFER 
/ GET LAST TEXT LOG* 

/ RECORD IT. 

/ INITIALIZE POINTERS 
/ GET DATA WORD 
/ RECORD XT 
/ UPDATE POINTERS 
/ TRANSFER COMPLETE? 

/ NO. " 

/ YES. GET CHECKSUI4 
/ RECORD IT. 

/ EXIT 

/ SET UP TAPE UNIT ROUTINE 
/ STORE FUNCTION MASK 
/ CALCULATE COMMAND 
/ ADD TRACK 
/ LOAD^COMMAND REG. 

/ RETURN 

/ READ A WORD ROUTINE 
/ WAIT FOR WORD 
/ READ WORD AND CLEAR FLAG 
/ RETURN 

/ RECORD A WORD ROUTINE 
/TRANSFER AND CLEAR FHAG 
/ V7AIT UNIT DONE 
/ RETURN 

/ SET UP POINTERS ROUTINE 
/ GET LAST TEXT LOCAPION 
/ SEMI-NEGATE 


7572 

1 1 33 


TAD 

CFRS 

/ 

ADD FIRST TEXT LOC. 

7573 

3170 


DCA 

TEMP 2 

/ 

STORE NEGATIVE WORD COUNT 

7574 

1133 


TAD 

CFRS 

/ 

GET FIRST DATA LOC* 

757 5 

3167 


DCA 

TEMP 1 

/ 

SET UP ADDR POINTER 

7576 

3171 


DCA 

TEMP 3 

/ 

CLEAR CHECKSUM 

7577 

5767 


JMP 

I INITAL 

/ 

RETURN 


■ - 

*6160 





6160 

0000 

V/AITV;, 

0 


/ 

0 > 'f 

V;AIT for READY 

61 61 

6373 


SRSR 

/ 

SKIP ON STATUS 

61 62 

5361 


JMP 

.“I 



6163 

0172 


AND 

MASK 

/ 

MASK OFF FUNCTION 

61 64 

7650 


SNA 

CLA 

/ 

CORRECT FUNCTION?? 

6165 

4566 



ERR0R7 

/ 

?24.j7 -- TAPE FAILURE 

6166 

5760 


JMP 

I WAITW 

/ 

YES* RETURE^ 



*0167 





0167 

0000 

TEMP 1 , 

0 


/ 

DATA ADDRESS STORAGE 

0170 

0000 

TEMP2> 

0 


/ 

\vORD COIEMT STORAGE 

0171 

0000 

TEMP3^ 

0 


/ 

CHECKSUM STOPiAGE 

0172 

0000 

MASK;. 

0 


/ 

FUNCTION MASK ' 

0173 

6160 

V/AITX^ 

VJAITW 

/ 

INDIRECT POINTER 


/ THAT•S ALL!!! 


/ ED rr" E 0 n IFI c A 'r 1 1 isj s f o h t e\i:' j e' r a p e i / o 
/nUFFEEED I i'^IPUT-DDTPfJT DEPSI DE 
SHSR=5373 /SKIP OK STATilS CALL T:LJE 

/AKD LEAD STATUS iiECI STEP 
CLCti=637S /CLEAu AUn LOAD CALLAKn PEGISTEii 

TwCF=6 37A /TPAKSFEK ACCiJFULATDiv 


HE C F= 6 3 7 6 


T0^v;Ll'iE 

/SHIF'i HECISTEP AOn CLEAi TE FLA 

/'rPAKSFEil READ nUFFEiv HEGlSTEii 
/TO ACCUEULA'IO:! AKD CLEA;i LEAD FLAG 




*57 

wE0P=63 71 /vUilTE EKD-OF 

00 57 

2 6 71 

EUD;» 

niJF'^EG 

01 1 5 

2 6 71 

* 1 1 5 
nUFRj 

EUF^EG 

1127 

700 0 

* 1 1 2 1 

I 7 50 ^ 

MOP /V;AS HIGH SPEED HEADE 

1 1 30 

5 7 32 


JFP I S75AA 

11 31 

5 7 2 7 

A7 50 j 

JEP 1 1750 

11 32 

20 1 7 

S750A/ 

S7 50 

115/1 

700 0 

* 1 1 50 
OUTH^ 

OvOP /5AS HIGH SPEED PUKCH 

1 1 55 

A 7 5 1 


‘vJES I PTAPEO 

1 1 ?- 

f~ • r- / 



1 i ou 

ij t 


Uiur' i j u ill 

1 1 57 

1601 

PTAPEl^ 

. TAPED ; 



* 1 2 0 2 


1202 

/. \ Q /i A 


JES I PSiiCH ' ^ 

120 3 

5630 


JEP I TSTOUT 

1200 

1 620 

PSACU^ 

SEARCH 



TST01JT= 

1230 

1255 

0 65 7 

*1255 

JES I PLOOK 

125 6 

7010 


SKP 

12 57 

2000 

PLOOK^ 

LOOK 

1260 

7000 


NOP 

1620 

700 0 ■ 

* 1 620 
SEARChS 

NOP /FIND SPLICE FOR RECO 

1625 

637 3 


SRSR 

1626 

700 0 


NOP 

162 7 

0321 


AND nOTHE . /CHECK DOTH S 

1630 

7 6 50 


SNA CLA 

163 1 

/i 3 6 5 


,JES REEIND 

1632 

10 70 


TAD HIGH • : - 

1633 

3133 


DCA OUTDEV 

1630 

1313 


TAD E570 

163 5 

3322 


DCA STITCH 

1636 

1310 


TAD pnUFIO 

163 7 

3315 


DCA ADDH ■ ^ 




563/4 

HIGH=76 

JXP 

I SEARCH 



OUTDO3= 

1 3 3 


16/U 

73 3 3 

T6?E0;» 

UOP 

/ 7‘ E X X E 1 A P E 0 U T P U T 


3 7 1 5 


DC A 

I ADDX 

16/13 

1715 


TAD 

I A DDR 

16/i/i 

1-33 5 


TAD 

XDOLAR 

16/15 

7 6/n 


SEA 

CLA /IS CHARACTER A DOLLAR 

16/16 

53 51 


jy.p 

XOTD 

16/17 

1316 


'I AD 

X3 

.1653 

3 v3 3 3 


DC A 

SV. ITCH 

1651 

331 5 

UOTD.» 

I SZ 

A DDR. 

•1653 

3 333 


I SZ 

SlvITCH 

165 3 

5 6/1.1 


JXP 

T TAPEO 

165/1 

! 3 1 3 


TAD 

X57/! 

165 5 

3 33 6 


DC A 

SSITCH 

1656 

5 7 7 6 


JXP 

I SETXI 

1 6 5 7 

3315 

THEIU 

DCA 

ADDR 

1663 

1715 


TAD 

I ADDS 

1661 

633 3 


JXS 

RECORD 

1663 

331 5 


I SZ 

ADDxi . 

16 53 

3336 


I SZ 

SRITCH 

166/1 

53 63 


JXP 

« - 6 

1 6 6 5 

‘ 131 3 


TAD 

X576 

1666 

3333 


DCA 

SvvITCH 

1667 

1 31/1 . 


I’A D 

P^uEIO 

1673 

331 5 


DCA 

A DDR ^ 

1671 

6 37 1 


IvEOR 

167 3 

7333 


CLA 


167 3 

63 7 3 


SRSR 


167/1 

53 73 


JXP 

.-1 R- ■ 

16 7 5 

0 3 7 7 


AX'D 

GAPFL6 

167 6 

7653 


SXA 

CLA 

167 7 

53 7 3 


JXP 

• - 6 

173 3 

6366 


CGAP 


1731 

5 661 


JXP 

I tape 3 

173 3 

7333 

RECORD.^ 

XOP ■ 

/ T APE 71E C 0 R D li 0 J TI X E 

1 73 3 

63 76 


TDCF 

/TRAXSFER 13 61T 30RD 

173/1 

733 3 


CLA 


1735 

6373 


SRSR 

/SKIP OX STATUS CALL TR 

•1736 

533 5 


JXP 

• — 1 

1 70 7 

0317 


AXD 

XRITEX . /'vRITE FLAG OX? 

1710 

7650 


S-\'A 

CLA 

1711 

760 3 


HLT 


1713 

570 3 


JXP 

I RECORD /YES;.RETURX 

1713 

7 3 3 6 

1X576.. 

-576 


171 /! 

30 73 

PRUFI 0/ 

I O^UFJ 

1 7 1 5 

03 0 0 

ADDio 

0 





1716 

7 77 5 

1/ 3 / 

-3 

1717 

2 22 2 

v.iil 

9 


7 536 


-26 6 

172 1 

2 i 2 


12 

1722 

2 222 

Sv. I TCH^ 

2 

172 3 

2 2') 2 

K E Y ^ 

2 

172 A 

I'YY) 

TAPEI ^ 

M2? /TEMMETAPE IMPHT 

172 5 

2 3 2 3 


I36 KEY 

172 6 

5 36 7 


JMP IMHAMD 

1727 

1 36 3 


TAD HEADM 

17 32 

637 5 


CLCR /LOAD READ MODE 

1731 



CLA /TO START TAPE MOTIOM 

1732 

1313 


TAD M576 

173 3 

332 3 


DCA KEY 

173^! 

1 3 66 


TAD PIORDF 

17 35 

3 3 62 


DCA POIMTR 

1736 

63 52 


.JF3 READ 

1737 

3/62 


DCA I POIMTii 

17^12 

2 3 62 


ISZ POIMTR 

17/J1 

2323 


ISZ KEY 

17^12 

5 3 3 6 


«J M P « — /} 

17^k3 

5766 


JMP I SEEKGP 

176/} 

YY\'51 

SSP'KGP^ 

FIMD3? 

176 5 

1 3 66 

S E Ti^.Y 1' j 

TAD PIOmuF 

176 6 

3 362 


DCA ?:)IMTH 

176 7 

1 7 62 . 

I2HA:\D> 

TAD I POIMTR 

1 752 

23 62 


ISZ POIMTR ■ 

1751 

5726 


JMP 1 TAPE! 

1752 

7222 

REA 

MO? /TAPE HEAD ROUTIME 

1753 

6 3 7 3 


SRSR /SKI? OM STATUS CALL TRUE 

17 56 

5353 


JMP .“1 

1755 

2 3 63 


AMD READi'Y ' . /READ FLAG OM? 

1756 

7 652 


.SMA CLA 

17 57 

5353 


JMP . - 6 

17 62 

637 6 


RCCF /TRAMSFER 12,^1 T v.ORD 

17 61 

57 52 


JMP I READ 

1762 

2222 

poi^n'Rj* 

2 

1763 

2221 

READE;» 

1 • • ; , 

1766 

22 73 

■ PlOnUF^ 

lOnUFR 



I2PLJFii= 

22 73 ■ 



P(jF’^E3= 

IO^UFR+576 

1765 

7222 

REFIRP^ 

MOP 

17 66 

1375 


TAD RYMDM - ■ 

1767 

63 7 5 


CLCR 

17 72 

63 7 3 


SRSR 

1771 

5372 


JMP •-! ' 

17 72 

722 2 


CLA . 

17 73 

6 3 6 5 


C^OTl 





VVi^X 

5 7 55 


JEP I iiElv'Ii^JD 

1775 

AAA 3. 

u3;[Adej ■ 

3 

17 7 6 

PA 41 

5ETEI ^ 

SETE 

Mil 

A A A 1 

A’ A E L A > 

/) 



C^ATl =6 
A'PAAA 

3 6 5 

PI 1 3 

1111 

LA A 30 

MAP 

PCM 1 

6 3 7 3 


SiiSil 

PllP 

7AAA 


lTAP 

9.113 

‘A P 1 5 


a;ad pa tip 

Pill 

1 6 5j 1 


S'X’A CL A 

2115 

4 65 5 


JaS I iiv.'ivD 

Jpllo 

1 A 5 5 


TAD CZl 

9.111 

34 5p 


DCA I KEYPAD 

PA 1 1 

3 >3 1 4 


DC A I Sv.TCH 

9.1 1 1 

7 A 4 A 


CL A 

P3 1 P 

3 6 1 6 


DC A I 34 EYE 

PA 1 3 

56 A A 


J^3P I LA031 

PA 1 A 

1 199 

SATCf-O 

SCITCH 

PA 1 5 

1111 

P ) T 1 P ^ 

lA 



KEyR:iD= 

6P 



CE 1-^65 


PA 1 6 

1 7P3 

34 E 710 

4EY 

PA 1 7 

4 :3 3 P 

S 151s 

J3'.S I 3P TAIPEI 

oc) o 

1 P3A 


TAD i^DALAU . 

PA P 1 

7 4'5 A 


S3AA 

9.19.9 

4P34 


Ji^.S M03<30:-iE 

PAP 3 

1P31 


TAD PDALAP 

PA P 1 

P6i/-i 

- 

ISZ I SLTCH 

2125 

5 6P7 


JL? I A75AA 

PAP6 

563 3 


JY3P r PEULL 

219.1 

1131 

11511s 

A7 5A 

9.1 3 A 

7 534 

LDOL.AEj 

~P44 

PA 31 

np4 4 

?DALA:0 

P44 

PA 3 P 

1 7P4 

P TAPE I :» 

TAP El 

PA 3 3 

A 576 

.PFULL:» 

576 

PA 3 A 

1111 

. N33)LAr(Ej 

3vAP /E3AD 

PA 3 5 

1 P4A 


TAD M3 

PA 3 6 

3 6 1 4 


DC A' I SCTCH 

PA 3 7 

5634 


JMP r MALO:iS 

PA 4 A 

777 5 

3v3^ 

”3 

PA-^l 1 

1P54 

SETEi^ 

TAD LRTLD 

PA /I P 

637 5 


.CLCR 

PA 4 3 

6373 


SRsa 

PA 4 4 

5P4 3 


J^3P .-1 

PA 4 5 

AP55 


AMD LiiIT^3D 

PA 4 6 

765A 


SMA CLA 

PA4 7 

5P4 3 


13i'j P *4 




I^jPUT I-v 3 CHAPACTEHS 




2153 

1 252 


TAD PnUF 

2.151 

5 653 


JFP I TiiTRM 

23 52 

2113 


I55UFR 

2153 

1 657 


TRET 

21 5 A 

(\ 9 


q 

215 5 

^ 6A Q 

V. . il i 9^ 

q 

2156 

IV 6 5 


'iEFIFD ■ 

21 5 7 

657 3 


53SR 

21 61 

5251 


U.'jP • “ 1 

2161 

613 7 1 


AMD GPFI..6 

2162 

7 6 55 


.SMA CL A 

2163 

5251 


JFP .“6 

216A 

6 366 


CGA? 

2165 

1 675 


TAD I MEG576 

2166 

3 516 


DC A I -KEYE 

2161 

5 611 


JFP I SETPT 

2.111 

1 76 5 

SET'?!;. 

SE'i'PMT 

2.11 \ 

111 A 

GPFLG^ 

6 

2112 

1713 

5 5 5 7 v? ^ 

F5 76 



CG6?=63 

66 




ADDiV 

1715 

AY.SA 

1131 

A? 5'; A 

P 0 P 7 


170 1 

nil 1 

" ^0 1 5 

^iJ F^J\G 

067 1 

njFii 

0 1 1 5 

CHAT 1 

636 5 

"CGAP 

6 3 6 0 

CLC:i 

6375 

CZl 

0065 

FA1D 

00 5 7 

FINDG? 

00 5 7 

GAPFLG 

1 7 7 7 

GPFLG 

00 7 1 

,HI G!i 

0 0 7 A 

IGH AAD 

1 70 7 

lO^fJFF 

00 7 3 

I75G 

110'/ 

KFY 

1 703 

KFYFiiD 

0 0 6 0 

IFFY E 

00 1 6 

LOOK 

00 0 0 

MD31..Aii 

■ 0 0 3 0 

M3' 

1 7 1 6 

MS 70 

1713 

MDDLA;^- 

1 700 

MEG570 

00 7 0 

MOMOKF 

0 0 3 Z 

MOTD 

•1 651 

M3 

0000 

OUTDEv 

0 1 3 3 

O'JTH 

1 1 50 

POUF 

00 5,0 

PPUFIO 

1 7 1 0 

PDOLAK 

00 31 

PFULL 

00 3 3 

PI OPUF 

1 7 60 

PLOOK 

1057 

POI MTii 

17 60 

PsacH 

100 0 

PTAPEI 

00 30 

PTAPEO 

1 1 57 

P.FAD 

1 7 50 

REA DM 

1 7 63 

.RECAiiD 

170 0 



iiEV.lLvD 

17 6 5 

RV.CF 

6 3 7 6 

R;-.N!D 

EG 5 6 

AJlJiv; 

1 7 7 5 

5jEA j 

16?/} 

SEEKG? 

1 7 /! /! 

SEl'E ’ 

■ EOGl 

SET? I 

1 7 7 6 

•SETEKT 

1 7/! 5 

SETPT 

EG 73 

SR Sri 

637 3 

SEITCH 

173 3 

SE'l'CH • 

EG 1 A 

S7 5G 

EG 1 7 

S75G A 

11 3E 

TAP El 

1 7 E A 

TA?EO 

. 1 6/t 1 

TRET 

1 65 7 

TRTRR 

EG 5 3 

TSTGUT 

1 E36 

TECE 

63 7/1 

PEG it 

63 7 1 

V.RI TEE 

. ry 1 7 

EiH TEP 

EG 5 5 

Wii’i-ED 

E' :) 5 /1 




0115 

0200 
0-201 
0202 
020 3 
020 ^ 
020 5 
0206 
0207 
0210 
021 1 
0212 
0213 
0214 
0215 
0216 
0217 
0220 


0241 

0245 

0266 

0373 

0374 


1441 

1442 

1443 

1444 


/PAL-III MODIFICATIONS FOR THnJNETAPE INPUT 
/BUFFERED INPUT VERSION 
SRSR=6373 /SKIP ON STATUS CALL TRUE AND 

/READ STATUS REGISTER 

RUCF=6376 /TRANSFER READ BUFFER REGISTER 

/TO ACCUI'^IULATOR AND CLEAR READ FLAG 

*115 


3141 

imij 

*200 

SYTA 

i~l 

> ■? 

> 

5620 

SPAL^ 

JMP 

I STARTI 


7000 

LOOK^ 

NOP 

/FIND 

SPLICE BEFORE READING 

3156 


DCA 

SWITCH 


5242 


UMP 

HREAD 


3125 

TPUNMl^r 

DCA 

RBGN 


6364 


CGAP 


6373 


SRSR 


7000 


NOP 



0217 


AND 

BOTl 


7650 


SNA 

CLA 


4616 


UMS 

I RWND 


7200 


CLA 



3004 


DCA 

RFLG 


560 1 


UMP 

I LOOK 


3100 

RWND> 

REVJIND 


0010 

BOTl^ 

10 



3067 

STARTI> 

START 



SWITCH^ 

1 56 




HREAD=2 

42 




L0REDI=^ 

54 




AAA=23 





TBUF=131 
RBGN=125 




*241 




5200 

*245 

JMP 

SPAL 


5204 

. *266 

JMP 

TPUNMl 

- 

4201 

INITAL, 

*373 

JMS 

LOOK 


4201 


JMS 

LOOK 


5446 

A46=46 

*1441 

JMP 

I A46 


4651 

READING 

JMS 

I PREAD 


1255 


TAD 

MDOLAR 


7450 


SNA 


/IS CHARACTER A DOLLAR SIGN 

4653 


JMS 

I PNOMOR 




iy-Ui5 

12 54 

TAD PDOLAH 

iA /16 

2256 

15Z FLUSH 

144 7 

52 5 7 

JM? PI 457 

1450 

5263 

JF? FULLl 

1451 

3111 

?RSAD:» HEAD 

1452 

1 1 3 1 

TAD TBUF 

145 3 

3J 3 1 

PEOFOiVj MOFORE 

1454 

0244 

PDOLAR^ 244 

1455 

7534 

FDOLA:L -244 

1456 

0300 

FIRISH^ 0 



FULL!=1463 

PI457=1457 
-'1=3067 

3067 

7 60 4 

STARTs las 

3070 

70 1 0 

RAH 

3371 

7 630 

SZL CLA 

3'312 

10 53 

TAD HIPURI 

3073 

7420 

SRL 

3074 

10 52 

TAD LOPUHI 

3075 

30 21 

DCA BPB 

3076 

5677 

JMP I A223 

3077 

0223 

A223^ AA223 


AA223=223 
LOP I=52 
HIPUi'n = 53 
BBB=21 


3130 

7030 

rev/iudj. ho? 


3101 

1313 

TAD RURDM 


3132 

6375 

CLCR 


310 3 

6373 

SRSH 


3104 

530 3 

JFP .“1 


310 5 

7203 

CLA 


313 6 

6365 

CBOTl 


310 7 

5700 

JH? I REEIRD 


3110 

3333 

‘RURDr'L 3 




CLCR=6375 

CBOTl=6365 


3111 

7033 ■ 

READ> RO? 

/TAPE READ ROUTINE 

31 12 

130 4 

TAD RFLG 


31 1 3 

7443 

SZA 


3114 

5321 

JR? CORT 


3115 

7043 

CRA 


31 1 6 

330 4 

DCA HFLG 


3117 

7331 

■ lAC 


3120 

6375 

CLCFi 


3121 

7233 

CORT^ CLA 


3122 

6373 

SCHSK^ SRSR 

./SKIP OR STATUS CALL 

3123 

5322 

JK? .-1 



312A 

0335 

AMD READM 

•/HEAD FLAG OM? 


3125 

3126 

7650 

5 3 AO 

SMA CLA 

JMP CLEEH 



3127 

6376 

RwCF 

/TRAMSFER 12 BIT 

EORD 

3130 

571 1 

JMP I READ 



■ 3131 

''7000 

RFLG=A 

NOMOHE^ MOP 

/EMD OF IMPUT IN 

3 CHARACTERS 

3132 

1337 

TAD M3 

> f 


3133 
31 3A 

3736 

5731 

DCA I PFIMSH 
JMP I MOMOHE 



^ 3135 

0001 

REA DM:. 1 

PJ{0M=126 



3136 

1456 

RCMT=157 

PFIMSH^ FIMISH 



3137 

7775 

M3:. -3 


* < 

31 AO 

6364 

CLEERR CGA? ' 



31 A1 

531 5 

JR? READ + 4 



31A2 

0000 

CGAP==636A 
■ SYTA^ 0 




AAA, 0020 
AA223 0223 
A223 3077 
AA6 00A6 
B3B 0321 
BOTl 0217 
C30T1 6365 
CGA? 636A 
CLCR 6375 
CLEEH 3143 
COET 3121 
FI MI SH 1A5 6 
FQLLl 1A63 
HIPUMI 0053 
KHSAD 02A2 


lAMl 

0115 

IMITAL 

0265 

LOOK 

0201 

LOPUMI 

0 0 5 2 

LOREDI 

00 54 

MDOLAR 

1455 

MOMORE 

3131 

M3 

3137 

PDOLAR 

1454 

PFIMSH 

3136 

PM0M3R 

1453 

PHEAD 

1451 

P1A57 

1457 






RI3GIV 

D125 

liCMT 

1 5 7 

RJsAD 

3111 

HE A DIM 

1 A A 1 

REA DM 

3 1 3 5 

REEIMD- 

3109 

RFLG 

9 on A 

:m(Om 

9126 

Rv/CF 

6 3 7 6 

IRvMD 

0216 

RRMDi-' 

31 19 

SCHEK ' 

3122 

SPAL 

9290 

SRSR 

6373 

START 

30 6 7 

STARTI ■ 

9220 

SWITCH 

0 1 5 6 

SYTA 

3142 

TDUF 

9 1 3 1 

IPUMMl 

020 4 



00 56 

2522 

OllA 

2522 

0172 

1 522 

0173 

1720 

017A 

0565 

0175 

0000 

1126 

7000 

1127 

4572 

1130 

1357 

1131 

7450 

1132 

4573 

1133 

1360 

1134 

2175 

1135 

5726 

1136 

5574 

1153 

7000 

1154 

4756 

1155 

5753 

1156 

1620 

1157 

7534 

1160 

0244 

1244 

4646 

1245 

5636 

1246 

neoo 


1257 

4661 

1260 

7410 

1261 

1500 

1500 

7000 

1501 

6371 

1502 

0001 

1503 

6372 

1504 

5301 

1505 

1373 

1506 

3277 

1507 

6373 

1510 

7000 

1511 

4775 

1512 

2277 

1513 

5307 

1514 

1063 

1515 

3460 

1516 

3175 

1517 

7040 

1520 

3274 

1521 

5700 


/EDIT-8 MODIFICATIONS FOa TENNETAPE I/O 
/BUFFERED INPUT-OUTPUT UEHSION 


*56 

END^ 

BUFBEG 

*114 

BUFR^ 

SUFaEG 

*172 

PTAPEI^ 

TAP El 

PNOMOR^ 

NOMORE 

PFULL^ 

565 

SWITCH^ 

0 

*1126 

1750^ 

NOP 

*1153 

OUTH^ 

JMS I 
TAD 

SNA 

JMS I 
TAD 

ISZ 

JMP I 
JMP I 

NOP 

PTAPEO> 

JMS I 
JMP I 
TAPEO 

MDOLAR^ 

-244 

PDOLAHj 

244 


/WAS HIGH SPEED HEADEK 

PTAPEI 

MDOLAH 

/IS CHAHACTEH A DOLLAH SIGN? 

PNOMOR 

PDOLAE 

SWITCH 

1750 

PFULL 

/WAS HIGH SPEED PUNCH 

PTAPEO 

OUTH 


^ 124 ^ 

JMS I PSRCH 

UMP I TSTOUT 

PSRCH^ SEARCH 


TST0UT=1236 

*1257 

JMS I PLOOK 

SKP 

PLOOK^ LOOK 

*1500 

LOOKj nop /FIND SPLICE FOR READING 

TPSP 

ONE> 0001 /EFFECTIVE “NOP’* 

TPMC 


CZ1=63 


^^^ip 

.-3 

TAD 

WAITR 

DCA 

COUNT 

TPSP TPMC 


NOP 


JMS I 

PDELAY 

ISZ 

COUNT 

JMP 

.-4 

TAD 

CZl 

DCA I 

KEYBRD 

DCA 

SWITCH 

CMA 


DCA 

KEY 

JMP I LOOK 



KEyBRD=60 



30 


1522 

7000 

TAPEI> 

NOP 

1523 

2274 


ISZ 

1524 

5345 


JIviP 

1525 

6373 


TPSP TPMC 

1526 

2274 


ISE 

1527 

5325 


JMP 

1530 

1377 


TAD 

1531 

32 74 


DC A 

1532 

1372 


TAD 

1533 

3275 


DCA 

1534 

4350 

, 

JMS 

1535 

3675 


DCA I 

1536 

2275 


ISZ 

1537 

2274 


ISE . 

1540 

5334 


JMP 

1541 

1377 


TAD 

1542 

3274 


DCA 

1543 

1372 


TAD 

1544 

3275 


DCA 

1545 

1675 

INHAND^ 

TAD I 

1546 

2275 


ISZ 

1547 

5722 

t 

JMP I 

1550 

7000 

HEAD# 

NOP 

1551 

6371 


TPSP 

1552 

5351 


JMP 

1553 

6372 


TPMC 

1554 

1376 


TAD 

1555 

3277 


DCA 

1556 '' 

. 1374 


TAD 

1557 

4775 


JMS I 

1560 

7104 

BITS# 

CLL HAL 

1561 

3276 


DCA 

1562 

4775 


JMS I 

1563 

1276 


TAD 

1564 

6373 


TPSP TPMC 

1565 

7410 


SKP 

1566 

1302 


TAD 

1567 

2277 


ISE 

1570 

5360 


JMP 

1571 

5750 


jiyip I 

1572 

1724 

PIOBUF# 

lOBUFH 

1573 

5000 

WAITH# 

-3000 

1574 

0034 

HDELAY# 

34 

1575 

1677 

PDELAY# 

DELAY 

1576 

7764 

N14# 

-14 

1577 

7204 

N574# 

-574 



KEY=1474 




P0INTH=147 

'5 



SAVE=1476 




COUNTS 1477 


/TEiyjiMETAPE IiWUT 

KEY 

INHAND 

/STAHT TAPE MOTION 
KEY 
• “2 
N574 
KEY 

PiOBUF 

POINTH 

HEAD 

POINTR 

POINTH 

KEY 

.-4 

N574 

KEY 

PIOBUF 

POINTH 

POINTR 

POINTH 

TAP El 

/NORMAL TENNETAPE HEAD LOOP 

• -i 

Ni4 

COUNT 

HDELAY /»'AND I 0** FOR 8/S 

PDELAY /"AND 0" FOR 8/S 

SAVE 

PDELAY /"NOP" FOR 8/S 

SAVE 


ONE 

COUNT 

BITS 

HEAD 
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*1600 


1600 

7000 

SEARCH^ 

NOP 

1601 

6376 


TP WM 

1602 

5201 


Jl^IP 

1603 

1317 


TAD 

160A 

3312 


DCA 

1605 

6374 


TPWP 

1606 

4277 


JAS 

1607 

2312 


IS4 

1610 

5205 


JMP 

1611 

1072 


TAD 

1612 

3132 


DCA 

1613 

1307 


TAD 

161A 

3175 


DCA . 

1615 

1310 


TAD 

1616 

3311 


DCA 

1617 

5600 

HIG^J -'72 

JMP I 



OUTDEW= 

132 

1620 

7000 

TAPEO# 

NOP 

1621 

371 1 


DCA I 

1622 

171 1 


TAD I 

1623 

1315 


TAD 

162A 

7640 


SEA CLA 

1625 

5230 


JMP 

1626 

1314 


TAD 

1627 

3175 


DCA 

1630 

2311 

NOTD# 

ISE 

163*1 

2175 


ISZ 

1632 

5620 


JMP I 

1633 

1316 


TAD 

163A 

3175 


DCA 

1635 

6374 


TP WP 

1636 

4277 


JMS 

1637 

2175 


ISZ 

1640 

5235 


O^iP 

1641 

130 7 


TAD 

1642 

3175 


DCA 

1643 

1310 


TAD 

1644 

3311 


DCA 

1645 

1711 


TAD I 

1646 

4257 


JMS 

1647 

231 1 


ISZ 

1650 

2175 


ISZ 

1651 

5245 


JMP 

1652 

1307 

, 

TAD 

1653 

3175 


DCA 

1654 

1310 


• TAD 

1655 

3311 


DCA 

1656 

5620 


Ji^P I 


/FIMD SPLICE FOH HECOEDIWG 

.-1 

WAITW 

COUNTH 

DELAY 
COUiNlTh 
• <“ 3 

HIGH 

OUTDEV 

M57A 

SWITCH 

PBUFIO 

ADDR 

SEARCH 


/TEiSfiNJETAPE OUTPUT 

ADDH 

ADDR 

WDOLAR 

/IS CHARACTER A DOLLAR SIGN? 

NOTD 

M3 

SWITCH 

ADDR 

SWITCH 

TAPEO 

WAIT 

SWITCH 

/GET TAPE UP T^' SPEED 

DELAY 

SWITCH 

.-3 

M574 

SWITCH 

PBUFIO 

ADDR 

ADDR 

RECORD 

ADDR 

SWITCH 

M57A 

SWITCH 

PBUFIO 

ADDR 

TAPEO 


» 
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1657 

1660 

1661 

1662 

1663 

1664 
1665. 
1666 
1667 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

1707 
1710, 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1720 

1721 

1722 

1723 

1724 


7000 

RECORD^ 

NOP 

/NORMAL 

6375 


TPWa 


3313 


DCA 

STORE 

1306 


TAD 

N16 

3312 


DCA 

COUNTR 

4277 


JNS 

DELAY 

1313 

BIT^ 

TAD 

STORE 

7500 


SNA 


7410 


SKP 


6375 


TPWB 


7104 


CLL RAL 


3313 


DCA 

STORE 

4277 


JNS 

DELAY 

2312 


ISZ 

COUNTR 

5265 


JMP 

BIT 

5657 


JNP I 

RECORD 

7000 

DELAYS 

NOP 


1305 


TAD 

MDELAY 

7001 


lAC 


7440 


SZA 


5301 


OMP 

*-a 

5677 


OMP I 

DELAY 

7710 

I^DELAY# 

-70 

/**-2’* FOj 

7762 

W16# 

-16 


7204 

M574j» 

-574 


1724 

PBUFIO> 

lOaUFR 


0000 

ADDH^ 

0 


ooob 

COUNTH> 

0 


0000 

STORED 

0 


7775 


-3 


7534 

NDOLAR^ 

-244 


6400 

WAIT^ 

- 1 400 

/’*-300( 

4000 

WAITW^ 

-4000 


7000 

NOMOHE^ 

NOP 

/END OF 

1314 


TAD 

M3 

3175 


DCA 

SWITCH 

5720 


JMP I 

NOMORE 

1724 

lOBUFRj 

• 



BUFBEG= 

IOBUFR+576 



TPSP=6371 

TPMC=6372 

TPWP=6374 

TPW6=6375 

TPWM=6376 


/rgOKMAL TEWNETAPE HECOHD LOOP 


/'•AND I FOd 8/S 


/”NOP'* FOri 8/S 


» 
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ADDii 

1711 

BIT 

1665 

BITS ■ 

1560 

BUFBEG 

2 522 

BUFK 

01 14 

COUNT 

1477 

COUNTH 

1712 

CZl 

0063 

DELAY 

16 77 

END 

00 56 

HDELAY 

1 574 

HIGH 

0072 

INi-iAND 

1545 

lOBUFH 

1724 

1750 

1 126 

KEY 

1474 

KEYBHD 

0060 

LOOK 

1500 

MDELAY 

170 5 

MDOLAH 

1157 

M3 

1714 

M574 

1707 

NDOLAH 

1715 

NOMOHE 

1720 

NOTD 

1630 

N14 

1576 

Ni6 

1706 

N574 

1577 

ONE 

1502 

OUTDEU 

0132 

OUTH 

1153 

PBUFIO 

1710 

PDELAY 

1575 

PDOLAR 

1160 

PFULL 

0174 

PIOBUF 

1572 

PLOOK 

1261 

PNOMOR 

0173 

POINTH 

1475 

PSRCH 

1246 

PTAPEI 

0172 

PTAPEO 

1156 

READ 

1550 

RECORD 

1657 

SAVE 

1476 

SEARCH 

1600 

STORE 

1713 

SWITCH 

0175 

TAPE! 

1522 

TAPEO 

1620 

'i’PMC 

6372 

TPSP 

6371 

TP WB 

6375 

TPWM 

6376 

TPwP 

6374 

TSTOUT 

1236 

WAIT 

1716 

W'A ITR 

1573 

WAITW 

1717 


$ 
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/PAL-III MODIFICATIONS FOP TENNETAPE INPUT 


/BUFFEPED INPUT VEPSION 


01 1 5 

3065 

I AMI ^ 

SYTA-1 




*200 



0200 

5222 

SPALj 

JMP 

STAHT 

0201 

7000 

LOOK^ 

NOP 

/FIND SPLICE BEFOHE READING 

0202 

3156 


DCA 

SWITCH 

0203 

7604 


LAS 


0204' 

7010 


HAH 


020 5 

7630 


SZL CLA 


0206 

5243 


JMP 

HHEAD 

0207 

1054 


TAD 

LOHEDI 

0210 

3020 


DCA 

AAA 

0211 

1131 


TAD 

TBUF 

0212 

3125 


DCA 

HBGN 

0213 

5601 


JMP I 

LOOK 

0214 

3125 

TPUNMl# 

DCA 

HBGN 

0215 

6371 


TPSP 


0216 

7000 


NOP 


0217 

6372 


TPMC 


0220 

5215 

f 

a4P 

• ^ 3 

0221 

5601 


JMP I 

LOOK 


SWITCH^l56 
HHEAD»2A3 
STAHT=222 
LOaEDI-54 




AAA~20 

TBUF=131 


0246 

5214 

HBGN=125 

*246 

JMP 

0271 

4201 

*271 

INITAL^ 

JMS 

1441 

4651 

*1441 

READINj 

JMS I 

1442 

1255 


TAD 

1443 

7450 


SNA 

1444 

4653 


JMS I 

1445 

1254 


TAD 

1446 

2256 


ISZ 

1447 

5257 


JMP 

1450 

5263 


JMP 

1451 

3006 

PHEADj 

HEAD 

1452 

1131 


TAD 

1453 

3060 

PNOMOHj 

NOMOHE 

1454 

0244 

PDOLAH^ 

244 

1455 

7534 

MDOLAH^ 

-244 

1456 

0000 

FINISH^ 

0 


FULL1=I463 

P1457al457 


iPUNMl 

LOOK 

PHEAD 

MDOLAH 

/IS CHAPACTEH A DOLLAH SIGN? 

PNOMOa 

PDOLAH 

FINISH 

P1457 

FULL! 

T8UF 
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*3006 


3006 

7000 

READ^ 

NOP 

3007 

1126 


TAD 

3010 

70A1 


CIA 

3011 

1157 


TAD 

3012 

76A0 


SEA CLA 

3013 

5222 


JMP 

301A 

1253 


TAD 

3015 

3257 


DCA 

3016 

6373 


TPSP TPMC 

3017 

A2A3 


JMS 

3020 

2257 


ISZ 

3021 

5216 


JMP 

30 2 2 

6371 

NOGAP^ 

TPSP 

3023 

5222 


JMP 

302<i 

6372 


TPMC 

3025 

125A 


TAD 

30 2 6 

3257 


DCA 

3027 

1252 


TAD 

3030 

A2A3 


m^s 

3031 

710A 

BITSj» 

CLL HAL 

3032 

32 56 


DCA 

3033 

A2A3 


JMS 

30 3A 

1256 


TAD 

3035. 

6373 

; 

TPSP TPMC 

30 3 6 

7A10 


SKP 

30 3 7 

1255 


TAD 

30 AO 

2257 


ISE 

30 A1 

5231 


JMP 

30A2 

5606 


JMP I 

30A3 

7000 

DELAY, 

NOP 

30 A a' 

1251 


TAD 

30 A 5 

7001 


lAC 

30A6 

7AA0 


SZA 

30A7 

52A5 


JMP 

30 50 

56A3 

MD'ELAY^ " 

JMP I 

3051 

7710 

-70 

30 52 

003A 

HDELAY, 

3A 

3053 

7000 

WAIT, 

-1000 

30 5A 

776A 

N14, 

-lA 

3055 

0001 

ONE, 

1 

30 56 

0000 

STORED 

0 

30 57 

0000 

COUNTH, 

0 

3060 

7000 

NOMORE, 

NOP 

3061 

1265 


TAD 

3062 

366A 


DCA I 

3063 

5660 


JMP I 

306A 

1A56 

PFINSH, 

FINISH 

3065 

7775 

N3, 

-3 

3066 

0000 

SYTA, 

0 


HK0N=126 

HCNT=157 

TPSP=:6371 

TPMC=6372 


HKON 

aCWT 

WOGAP 

WAIT 

COUNTH 

/GET TAPE UP TO SPEED 
DELAY 
COUNTH 
• -3 


-1 


NIA 

COUNTH . 

HDELAY 

DELAY 

/"AND 10” FOR 8/S 
/»*AND 0” FOE 8/S 

STORE 

DELAY 

STORE 

/»*NOP” FOR 8/S 

ONE 

COUNTH 

SITS 

HEAD 


MDELAY 



«“2 

DELAY . 

FOH S/S 


/END OF INPUT IN THREE CHARACTERS 
N3 

PFINSH 

NOMOHE 
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AAA 

BITS 

COUNTR 

DELAY 

FINISH 

FULLl 

HDELAY 

HREAD 

I AMI 

INITAL 

LOOK 

LOREDI 

MDELAY 

MDOLAR 

NO GAP 

NOMOHE 

N14 

N3 

ONE 

PDOLAR 

PFINSH 

PNQMOR 

PREAD 

P1457 

RBGN 

RCNT 

READ 

READIN 

RKON 

SPAL 

START 

STORE 

SWITCH 

SYTA 

TBUF 

TPMC 

TPSP 

TPUNMl 

WAIT 


OORO 

3031 

3057 

3043 

1456 
1463 

3052 
0243 
0115 
0271 
0201 
0054 
3051 
1455 
3022 
3060 

3054 

3065 

3055 
1454 
3064 
1453 
1451 

1457 
0125 
0157 
3006 
1441 
0126 
0200 
0222 

3056 
0156 

3066 
0131 
6372 
6371 
0214 

3053 


/UPDATE OF JUNE^ 1969 
/FIXES PAUSE PSEUDO-OP 
HC376 

0376 4201 JMS LOOK 

0377 5446 POPJ 

LOOK=201 
P0PJ=5446 

LOOK 0201 
POPJ 5446 


M 
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/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

waiTEj 


DUMP> 


aEcoaD> 


CALLING 

SEQUENCE; 


TAD 

CODE 


JMS 

WRITE 


lA 

FA 

CEaaoa hetuhn) 


(NORMAL 

RETURN) 


NOP 

DCA 

CODE 


TAD I 

WRITE 

/PICK UP INITIAL ADDRESS 

DCA 

lA 


ISZ 

WHITE 


TAD I 

WHITE 

/PICK UP FINAL ADDRESS 

CMA 



TAD 

lA 


DCA 

NWORDS 


ISZ 

WHITE 


TAD 

WDELAY 

/WRITE RECORD GAP AND 

DCA 

CHKSUM 

/GET TAPE UP TO SPEED 

TPWP 

JMS 

DELAY 


JMS 

SPLICE 


TSZ 

CHKSUM 


JMP *-4 
TAD 

CODE 

/WRITE CODE WORD 

JMS 

record 


JMS 

SPLICE 


TAD 

NWORDS 

/WRITE WORD COUNT 

JMS 

RECORD 


JMS 

SPLICE 


TAD 

CHKSUM 

/UPDATE CHECKSUM 

TAD I 

lA 


DCA 

CHKSUM 


TAD I 

lA 

/WRITE DATA WORD 

JMS 

RECORD 


JMS 

SPLICE 


ISZ 

lA 


ISZ 

NWORDS 

/WRITTEN ALL DATA? 

JMP 

DUMP 


TAD 

CHKSUM 

/YES# WHITE CHECKSUM 

JMS 

RECORD 


TAD 

SDELAY 

/PAUSE TO LET HEAD-WRITE 

DCA 

CHKSUM 

/RELAY SWITCH TO READ MODE 

JMS 

DELAY 


JMS 

SPLICE 


ISZ 

CHKSUM 


JMP 

.-3 


ISZ 

WRITE 


JMP I 

■ WRITE 


NOP 


/TENNETAPE RECORD LOOP 

TPWB 



DCA 

STORE 


TAD 

MEXTRA 


DCA 

COUNTH 


JMS 

DELAT 

/•’AND I 0” FOR 8/S 
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BIT* 

TAD 

STORE 


SMA 



SKP 



TP WB 



CLL RAL 



DCA 

STORE 


JMS 

DELAY 


ISE 

COUNTR 


JMP 

BIT 


UMP I 

RECORD 

DELAY* 

NOP 



TAD 

MDELAY 


lAC 



SEA 



xMP 

• —2 


JMP I 

DELAY 

SPLICE* 

NOP 



TPMC 



JMP I 

SPLICE 


JMS 

WBOT 


JMP I 

WRITE 

WDELAY* 

-1400 , 


SDELAY* 

-700 


MDELAY* 

-70 


MEXTi'iA* 

-16 


CHKSUM* 

0 


COUNTR* 

0 


NWOHDS* 

0 


STORE* 

0 


CODE* 

0 


lA* 

0 


/ 



/ 

CALLING 

SEQUENCE; 

/ 



/ 

JMS 

WBOT 

/ 

(NORMAL 

RETURN) 

/ 



WBOT* 

NOP 



TPWP TPMC 


JMP 

.-1 


TAD 

M4 


DCA 

NWOHDS 


CMA 



JMS 

RECORD 


ISZ 

NWORDS 


JMP 

.-3 


TAD 

BDELAY 


DCA 

. CHKSUM 


TPWP 



JMS 

DELAY 


ISE 

CHKSUM 


JMP 

.-3 


JMP I 

WBOT 

BDELAY* 

-4000 


M4* 

-4 



/♦•NOP" FOE B/S 


/SPLICE FOUND? 
/YES^ SPACE TO BOX 

/"-a" FOE 8/S 


/TEST FOE SPLICE 

/WHITE "7777** FOUR TIMES 

/SET INDEX FOR SPACE 
/SPACE SPLICE PAST HEAD 


* 
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/ 

/ 

CALLING 

SEOUENCES 

/ 

TAD 

CODE 

/ 

JMS 

SEARCH 

/ 

lA 


/ 

FA 


/ 

(ERROR RETURN) 

/ 

/ 

(NORMAL 

RETURN) 

SEARCH^ 

NOP 



DCA 

CODE 


TAD I 

SEARCH 


DCA 

JREAD+1 


ISZ 

SEARCH 


TAD I 

SEARCH 


DCA 

JREAD•^2 


ISZ 

SEARCH 

JREAD^ 

JAS I 

NOP 

NOP 

PREAD 


tl4P 

ERROR 


CIA 



TAD 

SEA CL'A 

CODE 


JMP 

JREAD 


ISZ 

SEARCH 


JMP I 

SEARCH 

ERRORj 

CIA 



TAD 

CODE 


SNA CLA 



JMP I 

SEARCH 


TAD I 

PERROR 


TAD 

SZA CLA 

NEOT 


JMP 

CMA 

JREAD 


JMP I 

SEARCH 

PREAD^ 

READ 


PERROR^ 

READ+102 


NEOT, 

-READ-61 



HEAD=WaiTE+200 

TPMC=6372 

TPWP=6374 

TPWB«6375 

S 


/PICK UP INITIAL ADDRESS 

/PICK UP FINAL ADDRESS 

/READ A FILE 

/IF ERRORS WHAT KIND? 

/RIGHT CODE? 

/YES* INCREMENT RETURN ADDRESS 

/RIGHT CODE? 

/YES* RETURN WITH AC-0 

/END OF TAPE? 

/YES* SET AC=-1 FOR RETURN 

/ASSUME CONSECUTIVE PAGES 


0 
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/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

HEAD* 


GET# 


HETUHN# 


CALLING 

seuuence; 

JMS 

HEAD 

lA 

FA 

CERROR RETURN) 

CNOHMAL 

RETURN) 

NOP 

TAD I 

READ 

DCA 

lA 

ISZ 

READ 

TAD I 

READ 

CMA 

TAD 

IA 

DCA 

NWORDS 

ISZ 

READ 

TPMC 

TAD 

RDELAY 

DCA 

CHKSUM 

TPSP TPMC 

SKP 

cMP 

JUNK 

JMS 

DELAY 

ISZ 

CHKSUM 

JMP 

• -5 

JMS 

ASSMBL 

DCA 

CODE 

cMS 

SPLICE 

«J4S 

ASSMBL 

CIA 

TAD 

NWORDS 

SZA CLA 
JMP 

SIZE 

JMS 

SPLICE 

^S 

ASSMBL 

DCA I 

lA 

TAD 

CHKSUM 

TAD I 

lA 

DCA 

CHKSUM 

JMS 

SPLICE 

ISZ 

lA 

ISZ 

NWORDS 

JMP 

GET 

JMS 

ASSMBL 

CIA 

TAD 

s'HKSUM 

SZA CLA 
JMS 

ERROR 

ISZ 

READ 

TAD 

CODE 

JMP I 

READ 


/PICK UP INITIAL ADDRESS 

/PICK UP FINAL ADDRESS 

/CLEAR BIT FLAG 

/TEST FOR RECORD GAP 

/READ CODE WORD 

/READ WORD COUNT 

/SIZE ERROR? 

/READ DATA WORD 
/UPDATE CHECKSUM 


/READ ALL DATA? 

/YES# READ CHECKSUM 

/CHECKSUM ERROR? 

/NO# INCREMENT RETURN ADDRES 
/CODE IN AC UPON EXIT 


# 
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SPLICE# 

NOP 



TPNC 



JMP I 

SPLICE 


JMS 

RBOT 


Jl'lS 

ERROR 

JUNK# 

JMS 

BLANK 


JMS 

ERROR 

BLANK# 

■ NOP 



TAD 

RDELAY 


DCA 

CHKSUM 


TPMC 



SKP 



JMP 

SPLICE’^3 


TPSP 



SKP 



JMP 

BLANK+1 


JMS 

DELAY 


ISZ 

CHKSUM 


JMP 

• -5 


JMP I 

BLANK 

SI EE# 

wS4S 

BLANK 


JMS 

ERROR 

ERROR# 

NOP 




RETURN 

ASSMBL# 

NOP 



TPSP 



JMP 

.-1 


TPMC 



TAD 

H DELAY 


JMS 

DELAY 


TAD 

M14 


DCA 

COUNTR 

SIT# 

CLL UAL 



DCA 

STORE 


JMS 

DELAY 


TAD 

STORE 


TPSP TPMC 



SKP 



TAD 

ONE 


ISZ 

COUNTR 


JMP 

BIT 


JMP I 

ASSMBL 

DELAY# 

NOP 



tad 

MDELAY 


lAC 



SZA 



JMP 

• “*2 


JMP I 

DELAY 


/SPLICE FOUND? 

/YES^ SPACE TO BOT 
/SPACE TO aECOHD GAP 

/SET INDEX FOa BLANK TAPE 
/TEST FOR SPLICE 

/TEST FOR BIT 

/BIT FOUNDS RESET INDEX 

/SPACE TO RECORD GAP 
/ERROR CODE LOCATION 
/TENNETAPE READ LOOP 

/’'AND I 0” FOR 8/S 
/"AND 0" FOR 8/S 

/"NOP" FOR 8/S 


i 
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MDELAY> 

-70 


HDELAY^ 

34 


Ml 4^ 

-14 


CHKSUM^ 

0 


STORED 

0 


lA^ 

0 


NWORDSj 

0 


COUNTRY 

0 


RDELAY^ 

-100 


CODE^ 

0 


/ 



/ 

CALLING 

SEOUENCEs 

/ 



/ 

JMS 

RBOT 

/ 

(NORMAL 

RETURN? 

/ 



RBOT# 

NOP 



TPSP 


ONEj 

1 



TPMC 



il'lP 

• —3 


TAD 

BDELAY 


DCA 

COUNTR 


JMS 

DELAY 


TPSP TPMC 


ISE 

COUNTR 


JMP 

• -3 


JMP I 

RBOT 

BDELAY^ 

-4000 


/ 



/. 

CALLING 

SEQUENCE; 

/ 



/ 

TAD 

•J-N 

/ 

JMS 

SPACE 

/ 

(NORMAL 

RETURN) 

/ 



SPACE# 

NOP 



CIA 



DCA 

SKIP 


JMS 

READ 


0 



0 



NOP 



CLA 



ISE 

SKIP 


JMP 

SPACE+3 


JMP I 

SPACE 

SKIP# 

0 



FOH 6/3 


/TEST FOE SPLICE 
/SET INDEX FOR SPACE 

/^^ACE SPLICE PAST HEAD 


/SET NEGATIVE INDEX 
/READ A FILE 

/WITH RIDICULOUS ARGUMENTS 
/TO FORCE AN ERROR ‘ 

/IGNORE CODE WORD 

/SKIP ANOTHER FILE 
/FINISHED SKIPPING 


0 


TPSP=637l 

TPMC»6372 

S 



